#####################################################################
# $Id: Forum.pm,v 1.1.1.1 2006/03/20 04:08:45 jfb Exp $
#
# Forum.pm - class representing forum
#
#####################################################################

package Epiphyte::Forum;

use strict;
use vars qw($VERSION @ISA %DBTABLE);

use Exporter;

use Epiphyte::Thread;

use Epiphyte::DBEntry;

@ISA = qw(Exporter Epiphyte::DBEntry);


%DBTABLE = (
	name	=> 'forums',
	key	=> 'id',
);



#####################################################################
# new - class method
#
# Create a new Epiphyte::Forum object
#####################################################################

sub new
{
	my ($class, $name) = @_;

	my $self = $class->SUPER::new();

	$self->{_name} = $name;
	$self->{_threads} = [];

	bless($self, $class);

	return ($self);
}

#####################################################################
# load - class method
#
# Load a forum from the database and return the object representing
# it.
#####################################################################

sub load
{
	my ($class, $id) = @_;

	my $self = {
		_id		=> $id,
		_threads	=> [],
	};

	bless($self, $class);

	$self->fetch($id);

	return ($self);
}

#####################################################################
# threads - class method
#
# Returns a list of all thread IDs for this forum.
#####################################################################

sub threads
{
	my ($self, $name) = @_;

	return ($self->{_threads});
}

#####################################################################
# post - class method
#
# Post a message on the forum.
#####################################################################

sub post
{
	my ($class, $name) = @_;

}


1;
